<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<%
'JAMES GJERDE
'RIVERKING TECHNOLOGIES FLASHGAME PAGE 2003
On Error Resume Next
Dim objConn
Dim strSubcategory
Dim SQL
strSubcategory=Request.QueryString("subcategory")
SQL="INSERT INTO SUBCAT(subcategory) VALUES('" & strSubcategory & "')"
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open "DSN=riverweb"
If Err.Number=0 Then
objConn.Execute(SQL)
End If
%>
Riverking Technologies
<%If Err.Number<>0 Then %>
An error has occurred. The connection attempt failed.
Please contact the webmaster if you have any questions.
Click here to return to the homepage.
<%Else%>
Copyright Riverking, Inc. 2002. All Rights Reserved.
